home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Archiv
/
DOPbt5.lha
/
jpeg
/
JPEG-asks
< prev
next >
Wrap
AmigaDOS Script File
|
1996-02-05
|
902b
|
59 lines
.key File/A,screen
.bra {
.ket }
failat 21
list {file}.map >ram:1
if error
c:fjpeg {file}
skip ask
endif
c:jpegAGA.020 {file}
skip ready
lab ask
MultiRequestChoice "A map requester" "Create a map file for this picture ?" " Ok |Cancel" pub {screen}
Set Result $RC
If $Result EQ 1
echo "creating .map file for " {file}
jpegd -pnm -outfile JPEGTMP:temp.ppm "{file}"
IF ERROR
delete >NIL: JPEGTMP:temp.ppm
echo "Fatal error: could not decode JPEG file."
QUIT 20
skip niels
ENDIF
jpegppm2aga JPEGTMP:temp.ppm "{file}.map" -jpegAGA {option}
IF ERROR
delete >NIL: JPEGTMP:temp.ppm
delete >NIL: "{file}.map"
echo "Fatal error: could not create map file."
QUIT 20
skip niels
ENDIF
delete >NIL: JPEGTMP:temp.ppm
c:jpegAGA.020 {file}
skip ready
EndIf
If $Result EQ 0
skip ready
EndIf
skip ready
lab niels
echo "error"
lab ready
echo "ready"